perm filename ENV2[P11,LCS] blob
sn#414632 filedate 1979-04-10 generic text, type T, neo UTF8
INS 0 5; < INSTRUMENT 1
ENV
;
ENV P4 P5 B2 DP7 DP8 DP9 P10;
COS B2 FP3 B2 P6 ;
OUT B2 B1;END;
SEG 2 0 1 1 8 1 10 .5 25 .5 50 0 75 0 100; <F2 ENVELOPE
GEN 0 2 4 .5 0 .3 0 .2 0 .1 7; < CLAR WAVE F4
SIN 1 1; <F1 SINE WAVE
SEG 5 1 1 1 50 ,-1 50.3, -1 100; <F5 SQUARE WAVE.
SRT←12800;
PLAY;ENV 0 .2 A*2 1200 F2 F1 .01 .6 .01 0; P10=-1;
< PLAY;ENV 0 .04 A*2 1200 F2 F5 .01 P2*3 .01 0; P10=-1;
ENV P2,,F; ENV P1+P2,,1000;
FINI;